Imports System.Web
Public Class IWebAuthentication
    Dim IWeb As New IWeb.WebCoreServiceClient

    Public Shared Function AttachCredentials() As IWeb.IWebAuthenticationHeader
        Dim IWebAuthenticationHeader As New IWeb.IWebAuthenticationHeader

        IWebAuthenticationHeader.PortalID = IWeb_Form.txtPortal.Text
        IWebAuthenticationHeader.Username = IWeb_Form.txtUsername.Text
        IWebAuthenticationHeader.Password = IWeb_Form.Password()
        IWebAuthenticationHeader.Encrypted = IWeb_Form.chkEncrypted.Checked

        Return IWebAuthenticationHeader
    End Function
End Class